home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs55.d81 / mathquiz.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  3KB  |  110 lines
  1. 100 REM 2/28/85
  2. 105 REM BY ROY LIESEGANG
  3. 110 POKE53280,6:POKE53281,12:POKE646,2
  4. 115 PRINT"[147]"
  5. 120 PRINTTAB(10):PRINT" [223][169] [146] "
  6. 125 PRINTTAB(10):PRINT"    [146] "
  7. 130 PRINTTAB(10):PRINT" [146][223][146][169] [146] "
  8. 135 PRINTTAB(10):PRINT" [146] [146]  [146] "
  9. 140 PRINTTAB(10):PRINT" [146] [146]  [146] "
  10. 145 PRINT"[145][145][145][145][145][145]"
  11. 150 PRINTTAB(15):PRINT"    [146] "
  12. 155 PRINTTAB(15):PRINT" [146] [146]  [146] "
  13. 160 PRINTTAB(15):PRINT"    [146] "
  14. 165 PRINTTAB(15):PRINT" [146] [146]  [146] "
  15. 170 PRINTTAB(15):PRINT" [146] [146]  [146] "
  16. 175 PRINT"[145][145][145][145][145][145]"
  17. 180 PRINTTAB(20):PRINT"    [146] "
  18. 185 PRINTTAB(20):PRINT"[146] [161][146][161][146] [146] "
  19. 190 PRINTTAB(20):PRINT"[146] [161][146][161][146] [146] "
  20. 195 PRINTTAB(20):PRINT"[146] [161][146][161][146] [146] "
  21. 200 PRINTTAB(20):PRINT"[146] [161][146][161][146] [146] "
  22. 205 PRINT"[145][145][145][145][145][145]"
  23. 210 PRINTTAB(25):PRINT" [146] [146]  [146] "
  24. 215 PRINTTAB(25):PRINT" [146] [146]  [146] "
  25. 220 PRINTTAB(25):PRINT"    [146] "
  26. 225 PRINTTAB(25):PRINT" [146] [146]  [146] "
  27. 230 PRINTTAB(25):PRINT" [146] [146]  [146] "
  28. 235 PRINT:PRINT
  29. 240 PRINTTAB(10):PRINT"    [146]  [146] [146]  [146] [146]   [146] [146]     [146] "
  30. 245 PRINTTAB(10):PRINT" [146] [146]  [146]  [146] [146]  [146] [146] [161][146][161][146] [146] [146] [146] [169][146][169][146] "
  31. 250 PRINTTAB(10):PRINT" [146] [146]  [146]  [146] [146]  [146] [146] [161][146][161][146] [146] [146] [169][146][169][146] [146] "
  32. 255 PRINTTAB(10):PRINT" [146] [170] [146]  [146] [146]  [146] [146] [161][146][161][146] [146] [169][146][169][146] [146] [146] "
  33. 260 PRINTTAB(10):PRINT"    [146]     [146] [146]   [146] [146]     [146] "
  34. 265 PRINT:PRINT
  35. 270 GOSUB630
  36. 280 PRINT"[147]":POKE 646,0
  37. 285 PRINT"MATH QUIZ[146]"
  38. 290 PRINTTAB(5)
  39. 295 A$="YOU WILL GET 12 MULTIPLICATION":GOSUB625
  40. 300 PRINT:PRINT:PRINTTAB(5)
  41. 305 A$="PROBLEMS TO SOLVE...":GOSUB625
  42. 310 PRINT:PRINT:PRINTTAB(5)
  43. 315 A$="PICK THE TIMES-TABLE THAT YOU":GOSUB625
  44. 320 PRINT:PRINT:PRINTTAB(5)
  45. 325 A$="WISH TO PRACTICE (1-9)":GOSUB625
  46. 330 PRINT:PRINT:PRINTTAB(5)
  47. 335 A$="AND HIT RETURN[146] ****":GOSUB625:INPUT X
  48. 400 SC=0
  49. 415 IF X=>10 GOTO370
  50. 420 FOR N=1TO 12
  51. 425 Y=INT(RND(1)*10)+1
  52. 430 PRINT"[147]** MULTIPLYING GAME [144]**"
  53. 435 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][144]"
  54. 440 J=N
  55. 445 PRINT"QUESTION #";J
  56. 450 PRINT"WHAT IS "X"TIMES"Y;:INPUT A
  57. 455 IF A=(X*Y) THENGOTO490
  58. 460 POKE54296,15:POKE54277,45:POKE54278,165
  59. 465 POKE54276,33:POKE54273,6:POKE64272,5
  60. 470 FORT=1TO200:NEXT:POKE54276,32:POKE54273,0:POKE54275,0
  61. 475 PRINT"NOPE![144] THATS WRONG" :PRINT
  62. 480 PRINT : PRINT""X"TIMES"Y"="Y*X: FOR T = 1TO4000:NEXT
  63. 485 GOTO515
  64. 490 S=54272:POKES+24,15:POKES+1,110:POKES+5,9:POKES+6,9:POKES+4,17:POKES+4,16
  65. 495 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164]"
  66. 500 IF A=(X*Y) THENSC=SC+1:  PRINT"* VERY GOOD *[144][146]"
  67. 505 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163]"
  68. 510 FORT=1 TO 1200: NEXT
  69. 515 NEXT N
  70. 520 PRINT"[147]YOUR SCORE WAS";SC;"OUT OF 12."
  71. 525 PRINT"*** THAT'S";INT((SC/12)*100);"% PERCENT CORRECT.***"
  72. 530 PRINT"DO YOU WANT TO PLAY AGAIN (Y/N)? "
  73. 535 GET AN$: IF AN$="" THEN535
  74. 540 IF AN$ = "Y" THEN280
  75. 545 IF AN$="N" THENPRINT"[147]HAVE A NICE DAY,"
  76. 550 PRINT
  77. 555 PRINT"GOOD BYE[160]!":FOR T=1TO4000:NEXT:SYS64759
  78. 620 END
  79. 625 FORA=1 TO LEN(A$):PRINTMID$(A$,A,1);:FOR B=1TO75 :NEXTB,A:RETURN
  80. 630 REM *** THE SPORT OF KINGS
  81. 635 REM *** PORTERS PROGRAMS
  82. 640 S=54272:B=40
  83. 645 FOR X=0TO24:POKE S+X,0:NEXT X
  84. 650 POKE S+5,54:POKE S+6,128
  85. 655 POKE S+24,15
  86. 660 REM *** BLOW THE BUGLE
  87. 665 READ L,H,D
  88. 670 IF D=0 THEN705
  89. 675 POKE S,L:POKE S+1,H
  90. 680 POKE S+4,33
  91. 685 FOR T=1TO (D*B):NEXT T
  92. 690 POKE S+4,32
  93. 695 FOR T=1TO(D*B/2):NEXT T
  94. 700 GOTO660
  95. 705 REM *** THEY'RE OFF
  96. 710 FOR X=0 TO 24:POKE S+X,0:NEXT X
  97. 715 RETURN
  98. 720 DATA 96,22,2,223,29,2,162,37,2
  99. 725 DATA 193,44,2,193,44,1,193,44,1
  100. 730 DATA 193,44,2,162,37,2,162,37,1
  101. 735 DATA 162,37,1,162,37,2,223,29,2
  102. 740 DATA 162,37,2,223,29,2,96,22,6
  103. 745 DATA 96,22,2,223,29,2,162,37,2
  104. 750 DATA 193,44,2,193,44,1,193,44,1
  105. 755 DATA 193,44,2,193,44,2,162,37,2
  106. 760 DATA 223,29,2,96,22,2,96,22,1
  107. 765 DATA 96,22,1,96,22,2,223,29,2
  108. 770 DATA 223,29,1,223,29,1,223,29,2
  109. 775 DATA 223,29,9,0,0,0
  110.